home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
BUZZ.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
305b
|
22 lines
#
# BUZZ Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("buzz.sou")
for (a=1; a<=40; ++a) {
for (x=5700; x<=16000; x=x+1500) {
sinwave(x, 55);
}
}
sclose(0);
sndvoc("buzz.sou", "buzz.voc");
}